home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Tools.Dxr / Internal_13_animation code.ls < prev    next >
Encoding:
Text File  |  1998-05-04  |  1.4 KB  |  54 lines
  1. global clockFirst, clockLast
  2.  
  3. on doClock ParamPoint, iterations, spritenum
  4.   puppetSprite(spritenum, 1)
  5.   set the loc of sprite spritenum to ParamPoint
  6.   updateStage()
  7.   repeat with X = 1 to iterations
  8.     puppetSound("tick-tock")
  9.     playFramesByTicks(clockFirst, clockLast, 6, spritenum, "clock.cst")
  10.   end repeat
  11.   puppetSprite(spritenum, 1)
  12.   set the locV of sprite spritenum to -1000
  13.   updateStage()
  14.   puppetSprite(spritenum, 0)
  15. end
  16.  
  17. on playFramesByTicks startNum, endNum, delayCount, sNum, whCastLib
  18.   if voidp(whCstLib) then
  19.     set whCastLib to "internal"
  20.   end if
  21.   setPuppetState([sNum], 0, 1)
  22.   repeat with X = startNum to endNum
  23.     set the memberNum of sprite sNum to member X of castLib whCastLib
  24.     updateStage()
  25.     set endTick to the ticks + delayCount
  26.     repeat while the ticks < endTick
  27.       if the doubleClick then
  28.         puppetSound(0)
  29.         set X to endNum
  30.       end if
  31.     end repeat
  32.   end repeat
  33.   setPuppetState([sNum], 0, 0)
  34.   puppetSound(0)
  35.   updateStage()
  36. end
  37.  
  38. on playFramesByTicksNS startNum, endNum, delayCount, sNum
  39.   setPuppetState([sNum], 0, 1)
  40.   repeat with X = startNum to endNum
  41.     set the castNum of sprite sNum to X
  42.     updateStage()
  43.     set endTick to the ticks + delayCount
  44.     repeat while the ticks < endTick
  45.       if the doubleClick then
  46.         puppetSound(0)
  47.         set X to endNum
  48.       end if
  49.     end repeat
  50.   end repeat
  51.   setPuppetState([sNum], 0, 0)
  52.   updateStage()
  53. end
  54.